﻿#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

$UA   = LWP::UserAgent->new();
$page = "http://www.example.com/upload.jsp";

$req = HTTP::Request::Common::POST( "$page",
   Content_Type => 'form-data',
   Content => [ myFile => [ 'C:\TEMP\myfile.pdf',
                            "AttackFile.pdf",
                            "Content-Type" => "application/pdf" ],
                Submit => 'Prześlij plik',
              ]
   );

$resp = $UA->request($req);
